home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 February / PCWorld_2006-02_cd.bin / software / topware / pspad / pspad450inst_cz.exe / {app} / Context / OtherCad.DEF < prev    next >
Text File  |  2003-08-07  |  10KB  |  248 lines
  1. ; PSPad code template for OtherCad
  2. ; Created by PSPad   09.09.2001  13:41
  3. ; Formßt p°φkaz∙ :
  4. ;   [jmΘno_p°φkazu | popis p°φkazu (libovoln² text)]*klßvesovß_zkratka
  5. ;   °ßdek p°φkazu, kter² bude vlo₧en
  6. ;   °ßdek p°φkazu, kter² bude vlo₧en ...
  7. ;
  8. ; hlaviΦka p°φkazu je uzav°ena do [], znak | slou₧φ jako odd∞lovaΦ
  9. ; jmΘna p°φkazu a komentß°e.
  10. ; * urΦuje nepovinnou klßvesovou zkratku
  11. ; pokud °ßdek p°φkazu obsahuje znak |, kurzor se po vlo₧enφ do
  12. ; textu zastavφ na tomto mφst∞
  13. ; pokud °ßdek p°φkazu obsahuje znak º, bude zde vlo₧en oznaΦen² text
  14. ;
  15. ; Authors:  AleÜ ╚ern², Ing. Ivan SlepiΦka, Petr SlepiΦka
  16. ;
  17. [OPEN | Otev°i libovoln² soubor]
  18. @open;/ otevre libovolny soubor / *31.3.2002* Ing. Ivan Slepicka
  19. / pouzite promenne: a=radek retezce i=pracovni promenna
  20.  a = sv 390;a += 1;jmpr 2;/ a = cislo radku v OCP programu (pouzije se pro zapis stringu)
  21. / radek cislo "a" pro zapis stringu - nemenit!
  22.  a$ = "";a$ = foname "*.*" "Otev°enφ libovolnΘho souboru (*.*)|*.*";if a$ == "";stop "Nebyl vybrßn ₧ßdn² soubor"
  23.  i = exist a$;if i != 0;jmpr 2
  24.  i = 1;msg cnf i "Chyba otevφrßnφ souboru - opakovat pokus?";if i == 1;jmpr -2;else;stop
  25.  msg info a$ " je otev°en";/ tento °ßdek je jen informaΦnφ a je mo₧no ho vymazat
  26. / tady MUSI nasledovat vhodna rutina pro dalsi zpracovani souboru
  27.  
  28. [OCD_NEW | Otev°i nov² v²kres]
  29. @ocd_new;/ ulozi rozpracovany vykres, otevre novy cisty a umozni ho pojmenovat / *19.12.2000* Ales Cerny
  30.  run 1 1 "NEW.OCP";stop
  31. |
  32.  
  33. [OCD_OPEN | Otev°i jin² v²kres]
  34. @ocd_open;/ ulozi rozpracovany vykres a otevre jiny / *5.10.2001* Ing. Ivan Slepicka
  35.  run 1 1 "F3.OCP";stop
  36. |
  37.  
  38. [OCD_SAVE | Ulo₧ aktußlnφ v²kres]
  39. @ocd_save;/ ulozi aktualni vykres / sablona / *19.12.2000* Ales Cerny / *31.3.2002* Ing. Ivan Slepicka
  40. / pouzite promenne: a=radek retezce i=pracovni promenna
  41.  i = sv 0;if i == 0;msg err "OtherCAD nenφ odklφΦovßn!";stop
  42.  a = sv 390;a += 1;jmpr 2;/ a = cislo radku v OCP programu (pouzije se pro zapis stringu)
  43. / radek cislo "a" pro zapis stringu - nemenit!
  44.  sv 47 0;a$ = name;a$ = norm a$;if a$ == "";stop "V²kres nemß jmΘno!"
  45.  a$ = norm name ".OCD" a$;save "" a$;i = sv 77;if i == 0;msg info a$ " byl ulo₧en.";stop
  46.  msg err a$ ô NELZE ULOÄIT!";stop;/ ukonceni programu
  47. |
  48.  
  49. [OCD_SAVEAS | Ulo₧ aktußlnφ v²kres pod jin²m jmΘnem]
  50. @ocd_saveas;/ ulozi aktualni vykres pod jinym jmenem / sablona / *19.12.2000* Ales Cerny
  51.  run 1 1 "SAVEAS.OCP";stop
  52. |
  53.  
  54. [PUMENU | Rolovacφ menu]
  55. @pumenu;/ rolovaci menu o maximalne 32 radcich / sablona / *5.10.2001* Ing. Ivan Slepicka
  56. / pouzite promenne: i=cislo radku pumenu p=vyhodnoceni vyberu z pumenu
  57. / pumenu je pripraveno na maximalni moznou delku = 32 radku; delka se upravi odebranim nepotrebnych radku
  58.  i = 0
  59.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i1
  60.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i2
  61.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i3
  62.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i4
  63.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i5
  64.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i6
  65.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i7
  66.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i8
  67.  i += 1;pumenu i 1 0 0 "nazev_radku";/  i9
  68.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i10
  69.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i11
  70.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i12
  71.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i13
  72.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i14
  73.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i15
  74.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i16
  75.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i17
  76.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i18
  77.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i19
  78.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i20
  79.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i21
  80.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i22
  81.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i23
  82.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i24
  83.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i25
  84.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i26
  85.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i27
  86.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i28
  87.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i29
  88.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i30
  89.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i31
  90.  i += 1;pumenu i 1 0 0 "nazev_radku";/ i32
  91.  p = pumenu i 0 250 250
  92. / nasleduje vyhodnoceni vyberu / adresovani je nutno upravit!!!
  93.   on p 0 @0 1 @1 2 @2 3 @3 4 @4 5 @5 6 @6 7 @7 8 @8 9 @9 10 @10 11 @11 12 @12 13 @13 14 @14 15 @15 16 @16
  94.   on p 17 @17 18 @18 19 @19 20 @20 21 @21 22 @22 23 @23 24 @24 25 @25 26 @26 27 @27 28 @28 29 @29 30 @30 31 @31 32 @32
  95. |
  96.  
  97. [GET 1 | ╚ti rßmeΦek]
  98. / a=1...16 poradove cislo dialog, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  99. / d=0/1 zapusteny/vystouply, e$=napoveda
  100.  dlg 1 a get b c X Y x y d e$
  101. |
  102.  
  103. [SET 1 | Nastav rßmeΦek]
  104. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  105. / d=0/1 zapusteny/vystouply, e$=napoveda
  106.  dlg 1 a set b c X Y x y d e$
  107. |
  108.  
  109. [GET 2 | ╚ti nßpis]
  110. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  111. / d$=napis, e$=napoveda
  112.  dlg 2 a get b c X Y x y d$ e$
  113. |
  114. ;
  115. [SET 2 | Nastav nßpis]
  116. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  117. / d=0...255 barva, e$=napis, f$=napoveda
  118.  dlg 2 a set b c X Y x y d e$ f$
  119. |
  120. ;
  121. [GET 3.1 | ╚ti CEL▌ editaΦnφ box]
  122. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  123. / d$=editovatelny text v okne, e$=napoveda
  124.  dlg 3 a get b c X Y x y d$ e$
  125. |
  126. ;
  127. [GET 3.2 | ╚ti TEXT editaΦnφho boxu]
  128. / a=1...16 poradove cislo dialogu, d$=editovatelny text v okne, ostatni se nezjistuje
  129.  dlg 3 a get -1 -1 -1 -1 -1 -1 d$ -1
  130. |
  131. ;
  132. [SET 3 | Nastav editaΦnφ box]
  133. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  134. / d=0...255 barva, e$=text, f$=napoveda
  135.  dlg 3 a set b c X Y x y d e$ f$
  136. |
  137. ;
  138. [GET 4.1 | ╚ti hodnoty tlaΦφtka]
  139. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1/2 nedostupny/dostupny/default, X,Y=poloha, x,y=velikost,
  140. / d$=napis na tlacitku, e$=napoveda
  141.  dlg 4 a get b c X Y x y d$ e$
  142. |
  143. ;
  144. [GET 4.2 | ╚ti stav tlaΦφtek - modßlnφ verze]
  145.  dlg status a
  146.  on a 0 +@0 1 +@1 2 +@2;/ atd az ... 16 +@16
  147. |
  148. ;
  149. [GET 4.3 | ╚ti stav tlaΦφtek - nemodßlnφ verze]
  150.  dlg status a b
  151.  if a == 0;if b == 0;stop;/ jmp +@end;/ je potreba si vybrat variantu zakonceni stopkou nebo skokem na end
  152.  on a 0 +@0 1 +@1 2 +@2;/ atd az ... 16 +@16
  153. |
  154. ;
  155. [INPUT 2R-DLG | Dvou°ßdkov² input dialog]
  156. a = sv 390;a$ = "Zadßnφ 1. hodnoty"
  157. b = sv 390;b$ = "Zadßnφ 2. hodnoty"
  158. edit mshow "1. hodnota = " a$ "1. hodnota" "2. hodnota = " b$ "2. hodnota" "NADPIS"
  159. edit get "" a$ b$
  160. |
  161. ;
  162. [SET 4 | Nastav tlaΦφtko]
  163. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1/2 nedostupny/dostupny/default, X,Y=poloha, x,y=velikost,
  164. / d$=napis na tlacitku, e$=napoveda
  165.  dlg 4 a set b c X Y x y d$ e$
  166. |
  167. ;
  168. [GET 5.1 | ╚ti hodnoty checkboxu]
  169. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  170. / d$=napis u checkboxu, e=0/1 nezaÜkrtnut²/zaÜkrtnut², f$=napoveda
  171.  dlg 5 a get b c X Y x y d$ e f$
  172. |
  173. ;
  174. [GET 5.2 | ╚ti stav checkboxu]
  175. / a=1...16 poradove cislo dialogu, e=0/1 nezaÜkrtnut²/zaÜkrtnut²
  176.  dlg 5 a get -1 -1 -1 -1 -1 -1 -1 e -1
  177. |
  178. ;
  179. [SET 5 | Nastav checkbox]
  180. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  181. / d=0...255 barva, e$=napis u checkboxu, f=0/1 nezaÜkrtnut²/zaÜkrtnut², g$=napoveda
  182.  dlg 5 a set b c X Y x y d e$ f g$
  183. |
  184. ;
  185. [GET 6.1 | ╚ti hodnoty radiobutonu]
  186. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  187. / d$=napis u radiobutonu, e=0/1 nezamacknuty/zamacknuty, f$=napoveda
  188.  dlg 6 a get b c X Y x y d$ e f$
  189. |
  190. ;
  191. [GET 6.2 | ╚ti stav radiobutonu]
  192. / a=1...16 poradove cislo dialogu, e=0/1 nezamacknuty/zamacknuty
  193.  dlg 6 a get -1 -1 -1 -1 -1 -1 -1 e -1
  194. |
  195. ;
  196. [SET 6 | Nastav radiobuton]
  197. / a=1...16 poradove cislo dialogu, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  198. / d=0...255 barva, e$=napis u radiobutonu, f=0/1 nezamacknuty/zamacknuty, g$=napoveda
  199.  dlg 6 a set b c X Y x y d e$ f g$
  200. |
  201. ;
  202. [GET 7.1 | ╚ti skupinu 2+2+2+2+3 radiobuton∙]
  203. / a=1/4/7/10/13 poradove cislo skupiny, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  204. / d$=nadpis skupiny, e$=napoveda
  205.  dlg 7 a get b c X Y x y d$ e$
  206. |
  207. ;
  208. [SET 7.1 | Nastav skupinu 2+2+2+2+3 radiobuton∙]
  209. / a=1/4/7/10/13 poradove cislo skupiny, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  210. / d=0...255 barva, e$=nadpis skupiny, f$=napoveda
  211.  dlg 7 a set b c X Y x y d e$ f$
  212. |
  213. ;
  214. [GET 7.2 | ╚ti stav tlaΦφtka ze skupiny 2+2+2+2+3 radiobuton∙]
  215. / a=2+3/5+6/8+9/11+12/14+15+16 poradove cislo tlacitka,d=0/1 nezamacknuty/zamacknuty
  216.  dlg 7 a get -1 -1 d
  217. |
  218. ;
  219. [SET 7.2 | Nastav tlaΦφtko ze skupiny 2+2+2+2+3 radiobuton∙]
  220. / a=2+3/5+6/8+9/11+12/14+15+16 poradove cislo tlacitka, b=0/1 nedostupny/dostupny, c=0...255 barva, d$=napis u tlacitka,
  221. / e=0/1 nezamacknuty/zamacknuty
  222.  dlg 7 a set b c d$ e
  223. |
  224. ;
  225. [GET 8.1 | ╚ti skupinu 2+3+3+4 radiobuton∙]
  226. / a=1/4/8/12 poradove cislo skupiny, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  227. / d$=nadpis skupiny, e$=napoveda
  228.  dlg 8 a get b c X Y x y d$ e$
  229. |
  230. ;
  231. [GET 8.2 | ╚ti stav tlaΦφtka ze skupiny 2+3+3+4 radiobuton∙]
  232. / a=2+3/5+6+7/9+10+11/13+14+15+16 poradove cislo tlacitka, d=0/1 nezamacknuty/zamacknuty
  233.  dlg 8 a get -1 -1 d
  234. |
  235. ;
  236. [SET 8.1 | Nastav skupinu 2+3+3+4 radiobuton∙]
  237. / a=1/4/8/12 poradove cislo skupiny, b=0/1 neviditelny/viditelny, c=0/1 nedostupny/dostupny, X,Y=poloha, x,y=velikost,
  238. / d=0...255 barva, e$=nadpis skupiny, f$=napoveda
  239.  dlg 8 a set b c X Y x y d e$ f$
  240. |
  241. ;
  242. [SET 8.2 | Nastav tlaΦφtko ze skupiny 2+3+3+4 radiobuton∙]
  243. / a=2+3/5+6+7/9+10+11/13+14+15+16 poradove cislo tlacitka, b=0/1 nedostupny/dostupny, c=0...255 barva, d$=napis u tlacitka,
  244. / e=0/1 nezamacknuty/zamacknuty
  245.  dlg 8 a set b c d$ e
  246. |
  247. ;
  248.